home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / link.cls < prev    next >
Text File  |  1997-06-14  |  957b  |  42 lines

  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "CLink"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Option Explicit
  11.  
  12. Public Enum EErrorLink
  13.     eeBaseLink = 13090  ' CLink
  14. End Enum
  15.  
  16. ' CLink class
  17. Public Item As Variant  ' Default member
  18. Attribute Item.VB_VarUserMemId = 0
  19. Public NextLink As CLink
  20. '
  21.  
  22. #If fComponent = 0 Then
  23. Private Sub ErrRaise(e As Long)
  24.     Dim sText As String, sSource As String
  25.     If e > 1000 Then
  26.         sSource = App.ExeName & ".Link"
  27.         Select Case e
  28.         Case eeBaseLink
  29.             BugAssert True
  30.        ' Case ee...
  31.        '     Add additional errors
  32.         End Select
  33.         Err.Raise COMError(e), sSource, sText
  34.     Else
  35.         ' Raise standard Visual Basic error
  36.         sSource = App.ExeName & ".VBError"
  37.         Err.Raise e, sSource
  38.     End If
  39. End Sub
  40. #End If
  41.  
  42.